home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD003b.dsk / STRING.ART.bas < prev    next >
BASIC Source File  |  2003-06-12  |  2KB  |  20 lines
  1. 0  GOTO 18
  2. 1  HCOLOR= 0: HPLOT T1(A),T3(A) TO T2(A),T4(A): IF C1 < = 0  THEN S =  INT(5 * RND(1) +1):C1 =  INT(5 *(10 * RND(1) +1)): IF S = 4  THEN S = 6
  3. 2  HCOLOR= S: IF  PEEK( -16384) -128 = 27  THEN 15
  4. 3  IF C2 < = 0  THEN D1 =  INT(9 * RND(1) -4):D2 =  INT(9 * RND(1) -4):D3 =  INT(9 * RND(1) -4):D4 =  INT(9 * RND(1) -4)
  5. 4  IF C2 < = 0  THEN C2 =  INT(5 *(10 * RND(1) +1))
  6. 5 P1 = X1 +D1: IF P1 > = 0  AND P1 < = MX  THEN 7
  7. 6 P1 = X1:D1 =  -D1
  8. 7 X1 = P1:P2 = X2 +D2: IF P2 > = 0  AND P2 < = MX  THEN 9
  9. 8 P2 = X2:D2 =  -D2
  10. 9 X2 = P2:P3 = Y1 +D3: IF P3 > = 0  AND P3 < = MY  THEN 11
  11. 10 P3 = Y1:D3 =  -D3
  12. 11 Y1 = P3:P4 = Y2 +D4: IF P4 > = 0  AND P4 < = MY  THEN 13
  13. 12 P4 = Y2:D4 =  -D4
  14. 13 Y2 = P4:X1 =  INT(X1):X2 =  INT(X2):Y1 =  INT(Y1):Y2 =  INT(Y2): HPLOT X1,Y1 TO X2,Y2:T1(A) = X1:T2(A) = X2:T3(A) = Y1:T4(A) = Y2:A = A +1: IF A >DM  THEN A = 1
  15. 14 C1 = C1 -1:C2 = C2 -1: GOTO 1
  16. 15  POKE  -16368,0: POKE  -16301,0: VTAB 23: HTAB 10: PRINT "LEAVE STRINGS (Y/N) ";: GET A$: IF A$ = "Y"  THEN  POKE  -16302,0: END 
  17. 17  TEXT : HOME : END 
  18. 18  TEXT : HOME : VTAB (2): HTAB (15): PRINT "STRING ART": HTAB (19): PRINT "BY": HTAB (15): PRINT "JACK KENNE": VTAB 12: HTAB 5: PRINT "*< BUSY WORK FOR IDLE APPLES >*": VTAB 23: HTAB 10: PRINT "(HIT 'ESC' TO QUIT)": HTAB 8: PRINT "(TYPE 'TEXT' TO RECOVER)"
  19. 19  VTAB 17: HTAB 5: INPUT "HOW MANY STRINGS (10 - 200) ";DM$:DM =  VAL(DM$):DM = DM +(DM = 0) *9
  20. 20 X =  RND( - RND(1)):X1 = 0:Y1 = 0:X2 = 0:Y2 = 0:C1 = 0:C2 = 0:MX = 279:MY = 191: DIM T1(DM),T2(DM),T3(DM),T4(DM): HOME :A = 1: HGR : POKE  -16302,0:X1 = 25:X2 = 50:Y1 = 115:Y2 = 30: GOTO 1